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!d^ (I) 

Id?-Ju^lsjjJdlj^Vlu.mL*H jwJjJu^U jLJjl (T 
jjJ^ JVl^L?dl (t“ 

! J^ Jd^^U^-Juilu jmJ>G 3jI» >e*»3 jhl^U (i) 

JVl jmjjJuj^um^UIj u^b (o) 



E-Mail 

Dr_Nasser2018@Yahoo.Com 



Facebook^** 

c.jlpjjlax j_bLj jiiiio i h->Ai->I| (oujj 

https://www.facebook.com/DrNasser.abdo. ^ ^ ^ 

(Fedora Fedora) h->A^I| ^ u \ 
https://www.facebook.eom/TheFirstincomputer/a 
bout?section=bio 

jftLdjDl jitUdil jS UtfuJl j$Uj t 4*^4 4ia^}U 


WhatsApp J\ 






•MiA-niA 


hone Number J 



.l-iiA-niA 























£9 - *9» 


1 

J^3 J^iJ I—*mm 1 #i 


1 

Data ubL*J! ^\^aS\ 


1 

Branching ^ISJI c^oill 

J»SII 


Looping & Procedures ulfl^VIjjl^Soll &M £jpsb\ 


II 

Cyber bullying gjipi c^^oall 


1 

Oj =>a9oJ| LkiLLnly ^^1 aiiuiffl <^l 


1 

feaMjUljttll sd^cJl^dl 


1 

jujlU >: <y\yi cjr^i 


1 

a^U^I uLUxtl: C^llill cJl^ull 


V 

Jdjft! jru > U| ausotl j : g»y\ cJI^-j^ll 


V 



A 


^yOWlI cJI^amJI 



gjillU <La guljJ Jl^Sl ^Jl£ AUiu ^ULjuui : 

gjWlI ^V|amJI 

cfisJliJI 

11 

For Next^Ual^ g*ljj aUSuAImI J 

c^olillcJl^dl 


ir 

Do whilej <Uab- guljj 4USu aImI :; 

g/OjIXll (Jig Mill 


U“ 



ii 

guljJ JljSl^^UUiu^yuul : / A5'c^3l^c)l^AttSl 


ii 

iLuL^ uiil^d : ^ <Jlg a»J1 


10 

ubL*i! J* Ulili : ^ c£d\UI 



























































r.lAiuLkJ| a^lioJI o*£»ai» 
J9J3AJI J-vlo J9IJI cjzJ| 


p 9 . »»o ^ l| J 9 lll o|£>a® 
• l-liA-niA 




jr^jit AmZu js3u«j>]1uGLuJI (l)^i»"uGLuJI fcljji 
j^Long(i)^wilnteger(>") J ftMiShort(r)2j^Byte(l) 4^tfM^Mijvyt 
l $>^cBecimal(>")?:jj>Double(r)jjAaSingle(l)( Ajj^>ji)Aa^>fc^uiijLuG 

String (r) j^tj jj^Char( I »wuj ggluJi (r) 
«5fai«Boolean (t“)^5isObject (n jyGDate (i) uGLuJi (r) 

ujblji«j Integer jkuaj* RAMjjj,iy^i;jSij^4UAj ^^^u« (l)AijLu^jjs 

Too ja> 3 ji Byte jsa (r) 

3 ) 3u&>*ll uGLuJi uumoj um 2jJGj V ^SII uGLuJI ^ ^»GJIuGLuJl ( I) A*U uUi#-iU 


False ^iTrue i»ajGU*S<u Boolean(r) 5u*i>ji 
Boolean Autosize^UJijStringuGLu^Text tuaUJi(>") 


uuijili 

uI^ulUI 


jjptJ j jLu£jj j jq*«i i^l ajSiJj* jSLai 

*UljjHjl dLlfl ll frldJtjrtXiu V 

j£Ui 

^dQjUl iuw tLu l jtuuj jjAd 

1 

Const uutfll^lAS^LuJI £jj = 4ju1uA«dL£ 

Const Pi As Single=22/7 

Dim jjtiUi ^i As jU*n^= 2 ujijaji^ 4 ^ 
Dim Area As Byte =15 

55 || 

* 

O 

( ) 4jl1£iJI AbjiuJI 4w»^£ j) ijwJ (1) 

( )i* Jjill JJU ^ULLflaaJI j .jll'XbJ JibW ( T ) 

^auiiS **Ull£U}Uli ^lastL-l^a* (r> 

ulfc i^UIaaJI £(jjI J** JwLjjjJJ wLeJLjJl ^IJAdLtfl(I) 

atjjA* 3 * <u^e( jysu jAdj { 0 ) As ji Dim jiudduudiyi 

t 

Mr - Nasser | esCLJ| <?>U| | | c£a|aci|| c=jJUJ| cot=J| ] 



















































(MAdjuLM a^lioJI 5|£»ax> 

Q) 

p9.»io^l| J9lll o>£>afi 

J^JsaJI J=a=xL> J 9 JJI c]zJ| 

v^/ 

•i.iiA.niA 




( — ) jom tafitJ U^Jjj J&jk ja 4JU^ (jjjitUI ) AJU^ 

Text="^" W*ij = 3*411 (r) Area=5 ^1 = ^411 (l)^^ut^ji^t 

ujIj -juxj - 3 *wl£— jjua — 3 f>sw 


• l*l£ A« A 



j! ja ^a gellU Jm 1)(T) 3*411 <U jjiu^311 jlSUl J$*jI cdjIaJt(l) 'U& uUi^U 

1«j Ju4j (=) ja^Ill^^ktr) jruu4 ilOf^lwijruiu 

(£wGjiil j 44 fU j! ) 3 <b-V 3 l?-j* j^UVl fU jI ulI jwlUJU ja^uJI J 5 *j(i ) 

Vbcrlf( V ) lajj-u >«434 & (1) 4a j^l * UjI *3j ujI^U j*wa*D! ( 0 ) 
>w3jI*S^ 40^ Form gijMita&GjAjajMe(A) 

i^LUi^Mfi^uDim (l-)jjjb^i jisiiijisi^Jpi 

Mil^ULttl jfi jikVI J wlwaJl(U) ujlill^ jikiu Const ysi j»J Md 
i4uGSsj*jS+iMj£)i&-iInitial Value 
Const Cinema As String 

Const Birthdate As Date = #1/25/2011#ji» # # jj>jui$ji$ j^iai (ir) 

lijj-U ji £)Jtf*tUI>?1J?-bUyji»6iU jlj&4UA (lo) 

(n) 

>i>ri (#i >1 j rf>i 3>i jiitiu yUi j#-ij jiisSi ale (i v) 

4j£ jJ>l Aftld&uJVj JA jfjJtZmJ Jul£ (lA) 

❖ Const C_Name As String =" 3*^*1! Uj#+* “ 

4j ‘ a^jaJI yaA String4£jjjC_Nam6 

❖ Dim F_Name As String String F_name 

❖ Area = 15 Area j&x i ^ 'o 

juaj^REM ji (')l4«ui^j>ilj¥l^ 

U judJu >4 oj V^ ^iUl l^U^J 
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•f?r-IA<uj c lAiJ| <ic=i|}oJ| o*£>oi» I fy^\j I p 9 . ii 0 ^ l| J9UI o|£>a® 
*' lw ' J9JBAJI jsdalo J9IJI cj=J| I **—^ I .Li*A.r«i<A 


l.liA.HiA 


IfelA uiilll lyLtfj Jjttl AjOS £o*j yjJ! f ik>V! 


aiiifUji Logic ErrorUuti Syntax Errors 4 j»iui 


Runtime Errorja^iifUji 


jumJI Ji jjSj 
jUJl £ji wriUj if ,w£ Jlwj( I) 

if M& 


)yftl*UtUj Dinj^^jaa>by^lM (0 

jla (Const Area As byte (r) 

f^urfru* jpil jl* ujtijijaiui totoibAjM’ (r) 

Area = Pi + Radius A 2 * Dimension X As Byte 

• Const X As Integer0 


Ik^JjUj^kujtlLwjyy V jfijhLodUjtlu 4 jU&UUjI^U 


Text Box jCombobox jituijrti 


Dim Arabic As Byte : 
Dim Arabic As Byte ; 


LSliLiJb-Jb^l^ljLS^ 
liyy l£uLw j^jjw 


700D 


IDEtttf 


1 


IkAlU dlioi D 


VB.Net Jl^ uLUaII hUdJu 

j«MnVt a£(r) jt >1 ait ^ j«ijnridi(i) 

jrU-UI jUdl Ufcl £jkt! j! j**JI(1) jru-dl j! u^aJI(t“ ) 

a 4u1a*}I j^tl ^UaH la* dJmrii I I 


^ <1 A#tl A //il 

^OTV^M F F 

H 


^ <1 A<tl A ,/ti 

H 

}«yi 

/ 

AjjIaII A^ihoaII 

H 

£>N 

Mod 

oiu 

Uj^aJI 

A 

jAi 


\ 



I'liA'niA^y^jMijiu 
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r*tAcLuLLj| 4£=l|joJ| 0(f>3A 1 ^ 

p 9 .«|o^l| J9UI 0 i±>as> 

j^j| lP ij, j 9 y| *i=j| 

• l-llA-niA 




(2bLi£) fL^juuui juu> <jrww a*i\ i^j ja\$h\ ja x Procedure 

lw^u^J^Uj ul y'ddA UJUjImI jSUj ,$kEa tJpljtjA JJju 4k?-CU 

J&JA Js t<JySU2jGS jIjSj 


Zv4j*#u(Kii) Function(r)2U*k aj*j Sub(l) Proceduresuui^r^i^ 


J^-b jiSU J4 jffi Jb AjJ&jjSjJ* AjfrJ Sub f qA uUrtll 



Sub Showoddoreven (Byval Start As Integer) 

For i = Start To 10 Step 2 

Labell .Text = Labell .Text &"" & i 

Next 

End Sub 


Showoddoreven *!>>■*! ^i(rl ( Sub fi>?-V!^j(0 

w Integer k*^t jiu & (i) Start ?t>?-V! ita kju$ (r) 

<$** U ^!!!!!!!!!! d* ~<U$a ulk^> 

js^iiiaA Par^^rs (uU^i-^u^i), < uAji^ (I) 

Byval Huiii As juif & Byval Start As Integer 

Argument ^3ja^ai(r) 

V\ \\ ji« ^ Parameter<>> suija1«i jsUj(t“) 
Sub Showoddoreven ( Byval Start As Integer, Byval Lastvalue As Integer ) 
Sub Showoddoreven () ji* jsUj (i) 

3jjb k.i*« Jio dk jjS ^ Function ^auat^ 


^U oSj ^ajjl^uuk^ J&ljw ui& jl x AJIjJI 

Function fi^i/ Aiuai^! As aii jJij jJi kkii jiuJ 

Return ^ijJi 
E nd Function 
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cialacill c£JLiJI cntaJI 










































































r*tAcLuLLj| 4£=l|joJ| 0(f>3A | U 

p 9 .«|o^l| J9UI 0 i±>as> 

j^j| lP ij, j 9 y| *i=j| |^ 

•i.iiA.niA 








Wt^ijiui (r)^M><Mii^i^ui (r) u^uu^lm^ jj«*ii(i)ai/u 2 i >u« 

jljall AjL»I ( 0 JuJjj&Vl JujUl $i u^UifVI JmIjDI jaly t^wJI uLatl 2S><i ( £ ) 

4mja 1I g*l jj j\ jinny galjj jl uUjjuj 

ji>uvi(i)ajdi<ai(o)^j > j«s]i(i)si^‘si(r)i2jLai(r) J s>»i]i(i)^jiSJSitfjuLijijii>i 

u (r Jiu^jsjvi ubami (r) yijjisi! jjjui(i i a&i 

Facebookji»^u«r^j«iijDi jiiy(o) 2ujjjKi)ti 

u&ji .> u^fi^u a^iji ;jbOwi »u«i >»i u^u.i uijjifty i t^Ji 0) 

.jSSljj jaJuuJ Jutj/l JJdfi JjUj uJjj&M JuJ£il (r) 

♦ Jmi 44*^0 4tutd£ JjLij (jIjju^I) ^ijJ\SJ)tl uiA)Um (r) 




kjUji I MIS J j&Z frZjjjSl* JSJu jSJ uiLLaXi JlS£l ja JSLi (l) 

♦ j O fc t i i JUa dJjM A J 4»ut Jt£ uLqJ&jmu l£ddJI ji UmH (o) 

♦ JS*wJ j^St jt jri ^ gjj (1) 

>Sjjl JAX &jAbtJ gU&gttl (V) 


(ujJu^U j^Vl ^IdPfcLuVl dfil^i) ^Juull j* ^ItwAI uuS 


4mI^ uULu ^1 j^uJ V Aal S Jd£l(r) j^jJI 4ai£ J^l djl£u V(l) 

JU)I >4d£(l) UjJuVl jA <Ul£ U&jJU J^i ALl^4 ^J^(0 )^JjuJI JjUj ^(i) 
^4ljUI J)>j(A)^jju^l^lJgfcLtfj Ju^ctijUaj JjUj 

^ai uU^UJI ^I(S) ^ ji titI jAJ UM Ojiu^l 
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caJUJI cpjJJI 

c£alofii|| c£JLiJI cAj=JI 
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I 

csj^o^axN \SM\5\vJ9 cjJ&AM*i! */$ dl 

• \ • ^X A • r ^X A o^^jJVxaP' f*p\> fMija / ^>\x£ go 
































r-IA djulikJI 0*£»0i> 

i'y*i I 


0 

P9AIo^I| cfisi J 9 UI o>£>ao 1 

.niA.niA | 






o*Sy» oWfl y»' | 


9 | ✓ doljc gfi> J 9 OI J| 9 iiJ| 


s VB.NET Si)j,*Sj(l) 
X uliuJI VB.NETSi)yici^jj(r) 

s Oijrf VB.NETiibjubjj yi l*)l#-j|>i ^1 uGLuJI j*«r (r) 

x iujjAai VUI joi Ji&SijSlitl yi uCiLuJI £ljji jm* (i) 

jWM(id«^iujjii}S>'Uik« JiwJjS^**«5<)l3jSliyi JjiwjLu JS(o) 

</ 4lwi) y^iVIj yjjVI Jn)l SijMj jj*U 4 &)l ijfij yi 41iuJ £01 jjytl)l j*? Jdaj jLu)l^ji(l) 

^jS j dy.»£JI3jjlSyi 4^yy}jyJI S^twjl J+hjJ yjjl jU ft )l ijUl (V) 

ujjLuJj j&a yJUaJt ul^jJ t rmnt (A) 

* 4£$jjUI uULuJI jAtf .jJUaJI>4*J 4*Ji u^(1) 



• uLiLuJ) (^juI^I j5j) uJUaJl^j i dJuajQ-) 

* 4-fcSj^JI uGLuJI 41u^j jSUj uJUaJI 'dj^a(W) 

jrutfl uCLuJI j«d l^Luoaj jSUj u&$X\ ujy (ir) 

1^ ju VB.NET^^uIjjwlUIj JuoL (ir) 

j OD 

^ <jJJuVB.NET 4*)^JAXL4 (lo) 

S 1^jj^uIjaxUi( n) 
£j&\ jmHJ >**! ^ JJPWJ ul.I jtulUI 4JL^r (IV) 

^ 3 ^ j^UjVB . N ET 3 tt ^ uI^lUI ja <j^i o a) 

String ^F Name jiltDim F Name As String (U. 


^ v otrin 

&»*> r 
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c£ulil| (pjjJ| 


c^alaclll cjJljJI cAnJI 


siiau^i (H 

I £»g 
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.niA.niA 




* F_Name 4^ String jwub jA Dim F_Name As String ajidiau^ji (ri) 

S ijuj juAj 55 City (rr) 


i==J| 9 Jt=lsaU x 2 *sm j*t \jum 55City (rr) 

v uj^bi jux> Name (n) 

> d nirVni ju*j Nama (ro) 

Xujl^ljAjileSluiDim >«la#UMj (rv) S ui^utijcj^l^Dim (n) 

v'ujijiiii^sijiicSiyiConst (n) xui^iai jcjikSiuiConst (ta) 

✓jubjJI^u»»Ujljjlswjt 3,1 m VB.NET Silui ujljill (r) 

j3t«jfiSjUfiVB.NETailuiujtiit (ri) 
(| ^Logical ErroryikaU^j^^jLw^iuU^i^^UwtJi (rr) 

Syntax Error^ikrj^^u« ^10^4^11^11^1 (rr) 
✓ Runtime ErrorjM^l«tulU»rVB.NET^0* j^tUjlj^^iUaAJi (n) 
x Syntax ErroriSj»JUw-<uu;ju»j VB.NET ^tjjj (ro) 

/11 „a X=3+2*4 4*10)1 aJjOU AULU Mi X^iiU) 2u*ai (ri) 

x (\ <y> X=3+2*4 2*)Ol ^4Utl 4 mm Jiu X^il«U UuiltfiJI 3 Um)I (rv) 

i j\ ii jM^uvUIaoI Idw jl ^wUjytl )\ ul^iill 4 mo .Mljj JH (rA) 



^ Falser True 3L**S)ii?-lj Double ^1^4^*341 (rt) 
><jpu>io Integer & Long £i$ii j^ui^iai a ) 
jijfiVi(Integer & Long & Double)^! ui^iiti (11) 
S Textbox ulj^l j4 JLiaall j4 u^-m JLihwl A (ir) 


X 4Mkai43jtaiu>bwJ^ijA&J^WKir) 


•f r ji If.. Then .. Else3uLor}4 3U3U4i£j44)iuijLM’i440(11) 
x True ^^i^uxUisjGjjSjUJu^lf ^ Else ^b^i^i^do) 
S tjisu jrUU>i j4 Js\ tjtrj 34(4- ^ Select Case 3 ulmt>jM« 3(n) 

•/Sjl^j^ejecLCase^Ug^^**"^ (s-V) 

&♦*> r Mr - Nas ser | | c^al oc'll djJliJI cAtaJI | 


































r.lA dJulikJI ‘6&*o 

l^jbb-l^ ALLo^l >«Ai yjQI fj^sJI 

© 

P9AIo^I| efisi J 9 OI 
.niA.niA 

^c5> 




UttijdijAM SiUjii ji (jjuu For...Next "iUf; v> Step btiS >je yi(n) 

■/ jia^tForM = 3To 1 Step-1 ajmi( o.) 
s .JajM JTUJU yle «Uj Do...While iylI jSJJI ioLdt j> jSUj (ol) 

v'' Selected Index ye Listbox3ii‘Xb iexii ulijj yii jju yjji iyeUsii (or) 

3 je joi - UJ ,bu 1I je iLojLLJ JjAjjixijiMt &M jAlfll ye 3jLe (of) 

ui^i^ja»jj«UjijC>*iuUJsuj>«iji jAlAftMjtijLA Procedure «i>?-vi(oi) 
^iijjjiyiui>(3dc ( j t uMjjsajaSjijSj Procedure 

S uijii ,> jjic i^i utJivjj ~»u-\}>ja Procedure «i>r?i yiju(oi) 

■ jfllaj Lfc J luJu uM l^ua^y^ju^ jlJI u U -ibuil^ ^VI (OV) 

ure^ljel jllaj ^ju Uikfljj (oA) 




Function IJJI jt J&lmJ uut.id.*m 4 fca$A jA J &I djlj£j yiu£jj jrww UjJ j j$Sj UJua ( 1 *) 

-/ ki>rSi sleajui ale sijirSi^U-Parameters no 
jment IfdeJUaj Auell j6 Taxes(0.05)>«*iU * 1 l>fl «leduu>l Jue(ir) 

< Argument i*de jitw Taxes j6Taxes(0.05)>*»b«i i>?-i« leoij jJeor) 
ind Function)jy^uuj( Function)jUjj2Jbyej}teiti(ii) 
x (End Sub) jy£iy(Sub) jUeiJiliyeailetfl (lo) 
v iu*SUeg!U*>aijSUiJiyislii Function ijijji» ueu»<iVi#iij(n) 

* jtsiii Procedure *i>rVi>iui«i«vuii (iv) 

S ValuesajBrijJujij^jjj ParameteriuLi^)l^L«3ij-Qji^LujrfijSiy«afi>*wi)u»i (ia) 
x Parameteri»?u3w^ Values WUjjj-LijijSUjjuuAuLijjiijXi^iejAJMSJijJi (ii) 

x emAjj Jlji je j^eVlyj^»Uuifce«i4ji VB.NETSiJyle J^Jj(v-) 




y yeUJ>VI gily Jm hul*} Jil?- yjjjiSJSI ^Jei)l( vr) 

r Mr - Nasser I | cgJtSJI gnijTI I c^olac'll c=jJLjJI caisJI 
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Gender £>*n jm*« jAjiiciUS^swJi &ua>i (i.) 
(Dim Gender As Integer - Dim Gender As Boolean - Dim Gender As Decimal) 

uA Y jrJLU 4U^(II) 

(Dim Y As Decimal - Y As Decimal - Dim Y = Decimal) 

ja r 'iuijii <u*i> C_Family ai. ijii aj« j&> je. jikSi (ir) 

( Dim C Family As Integer = 2 - Const C_Family As lnteger= 2 - Dim C_Family As Single = 2) 

jcjikVIdiA (ir) 

( Const Pi As Single =3.14 - Dim Pi As Single - Dim Pi As Single =3.14) 

p J&LmJ 4^jVI 2uba& ujG jA Jua (II) 

( Const G As Single =9.81 - Dim G As Single - Dim G As Single =9.81) 

U - la^^uG^JlIUAju fU jI - Jua ) jaua^j ajj (lo) 

( _ IJUJ uUi&ll jJfiUMj —AwlidI uUM*)ljj&jll yJLc )jl uM uljruuil JuA (11) 

(St Name -st Name-Name**) (iv) 

( 5Cairo- E Address -(Address)) jt^^gi^i^vijiS-iOA) 

(St Text- Text - St Texti 1 - ■ L ^~-- j--■ ui~h.-m^h f i■ ...i (^) 

(Syntax Error- Logical Error- Runtime Error ),,*^VB.NET^;vtju,ij£ij»j giajUaj- (r-) 
(Logical -Runtime Syntax = Errot) u ^iVB.NET4ibj^SliuliS«Ujij^ijil»?- (ri) 
( Syntax Error - Logical Error-Runtime Error)Dimension X As ByteSjUSdi* ifaAJlilU) (rr) 
(Logical Error -Runtime Syntax)o*«u VB.NETaaljjS Jm£u guUUte-(rr) 
(Syntax Error- Logical Error -Runtime Frrrir . > 

(Mod - \ - Div) juuA^uaJi2 l*S( n) 

(r-n-tt) ji X=3+2*4 ^a(mJU X jMMit jjUIKrv) 


(lo-r-lt )jAY= 16 - 12 / 4+2 AlAUwJU Y ^ii«U ^l^Ji juUJl(rA) 


&•*> 


Mr - Nasser 


c£ulil| (pjjJ| 
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( (5) - (14) - (-16) 


(ir-i-v) 

(ir-8-v) 

) 


(-12 -4- 8) 


$aY= 12-2+4/2 it jbwil ^l^Ji^uUli(n) 
$*Y=12-(2+4)/2:y,sUaU ujl^yigjUJI (r) 
2-(7+2)*2 2 ujU*1i iiU*)! iuaijgjlj (n) 
2 - (5+2) * 2 dLuL-wJl dUlmJI iuaiJ juUfrr) 


u js -ajUJJi a*di v: iwfl d*> iMt jrtidUi dU^i djbj) Next dddbjFor.Ncxt di4d^ yS (rr) 


(. Do While- ForNext - Select Case) iw jiijjaii uijd mc iijjw ji* /j«w Sib- jiii (r-i) 
(Loop- Counter -Repeater-Repetitionl ^ijVi yuti (ro) 

(l - i- £) ForX = 1 To8Step4 (n) 

( rrioTVAU - mAI- -r) i » u i J juUForY = 2To10Step2 idiijjdu (I“V) 
(Do.While..L oop -F or Next-End If) (rx) 

I S' \ \ \ I 

Do While Loop <> (ri) 

( False hjmi\ uua Truelaj*sJi uUa True«bjJji jij£3) 

JSmJL l^ulJu luSj A-2 bjJuli £apu Ju£ djji^Su Aab ( 1 ) 

( Do While (A<>2) - Do While (A < 2) Or (A >= 2)- Do While (A = 2)) 




i+iUI iuLu=J| d.ldofiJ| iiiii d.L,*l 9 f cui, (!) <^JLSJ| J|$mJ| 


2jUJI utl >UJI ,> joljfr I (\) 

L >u«uVi(r) 


jbwtiati jUjijdtidwajiiujdajKt") 
OWJI jLoll J**Jl(l) 


-: dLuVl 4ddL«.ittl uUUxll jddUjgjljfed»j( u) 


r= 15mod3+2(ll") 
i= 14mod3+2(1i) 

rv= 5 A 2+2(lo) 

n-= 2-(7 + 2)*2(n) 
ir =12-2+4/2(IV) 
14= 2+3*4 (IA) 


||= 3+2 *4 (V) 

IV= 5 + 6*2 (A) 

n-= 2 - ( 7 + 2 ) * 2(1) 
rr= 5 + 6*3 (»•) 
lo = 16-12/4+2(11) 
-12= 2 - (5+2) * 2(ir) 


n= 2 *(5+3)(» 
rr=(5 + 6)*2(r) 
1“-=9 *2 + 4*3 (r) 
11= 5+3 *2 (!) 

ir= 5+2*4 (o) 
8= 12-(2+4)/2(1) 
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r-IA iulikJI acnyi o^>oi> 

aiinfti M\ «j&i *>JI 



p9 " o ^ l| cfisi J 9 HI oj£>ax> 
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JJl*j A^ujU ^£)U AjujYI * Ua^-YI up* (jj-) 


Dim N,Product As String 
Dim Str As String 
ForN = 1 To 10 Step-1 
Str = 9 & “ X “ & N & “ = “ 
Product =9 |f| N 
Next Str 


No 

0 * 11^1 

UJ^diiJI Jb Jjfti 

1. 

Dim N, Product As String 

Dim N,Product As Integer | 

2. 

For N = 1 To it) Step-1 

c=> 

II 

O 

l_l _ 

3. 

Product =9 + N 

Product =9 * N I 

4. 

Next Str 

Next N 1 


*S aJUJI ol^OI \& (!) u^M JIM 


Dim X, Y, Z As Integer 
X = 20 

Y = 50 

If X < 20 Then 
X = 30 

Y = 80 
End If 

Z = Y* 2 


If X < Y Then 

Z=K+J 

X=X+1 

Y=Y-1 

Else 

Z=K-Y 

X=X+2 
Y=Y-2 
End If 


&**> 


r* >*jU! ( 1 ) 

O-uaY^ uutliwi (r) 
1-uAZTULUI^ji (r) 
jjSJX < ( 1 ) 

(True-False-20) 

iuj^l ji$SVi -uaJj juu jjttjU JS <U-d jjp- (u) 


X=0 , Z=0 , J=1 , K=1 ,Y=2 


Dim N, K, C As Integer 
C = 10 

For N = 1 To 10 Step 5 
K = K + N 

Next 

If N >= C Then 
C = C + 1 
End If 


Mr - Nasser 


c£sJUI| <pjjJ| 


I UU-uill X jMitl(l) 
1 2L*anY **ai(r) 
ri«aiz jwcii (r) 


JQI Jjttl ktu JUU jjuA JSiwfl JJU>- ( 2 ) 


II 

V 

II 


N^uLUIuu^i 

KjULUIuu-ki 

C^utUl2u*a 


t£a|ac!|| <£JUJ| c^al| 


<*•$ 
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p9 " o ^ l| cfisi J 9 HI oj£>ax> 
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i ^"’5; 


If X >=50 Then 
Msgbox (jufii) 
Else 

Msgbox (ijMb) 
End If D 


ijZtL iku< <uigii jc.u*\(j) 


jl£X = 76 2uoiujl£ljl (I) 
u*uljAei£ Aj jl£X = 49 4^oiujlSljl (T) 
JaBdHj j^aol Block If j jdliJI 4 j££ J£l (t**) 


l f X>= 50 T h e n M sg b ox ij) E]se fyi§^b ox j 


If..Then..Else JubjAii 4U»u "<u wi &ua>u u*w^ jiui jjSju jot 1 jjj^ji j*si(£) 
Country uj^a 1^1 ( j 1 * *' ^■* i -*rt ^ 



A^ail 

ut-# 

ja 

Country =">*«"□ 


\ 

Mscj b9X M j^tfL# M D 

TruekjMiijiMui^? 

r 

Msgbox "Egypt" D 

False 

r 




Private Sub Button1_Click 
Dim Degree As Single 
Select Case Degree 
Case =0 
Me.Label2.Text -” 

Case Is < 0 
Me.Label2.Text 
Case Is > 0 

Me.Label2.Text =”jiiai\&r 

End Select 

□ 

0 


(jAtf )^UJ£4j 4 ILmj jtf j*6 (jA jtfj*)l (0 

yjA f uj $j&) ji (j^ji uaj) ji 

'fcj&A 

^UjJi^jaw^j^Degree=-3jia9JkGi (r) 

jamJIuaj jdjJI 

3 bl CJjck £aj UJu£ (r) 

Button 1 j&&\ 


Single^ Degree^i£$j (0 
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| cSsJUJ| a^iJL LLudiiiA ailuiUI cmj (|) ^UJ| J|^iiJ| 


Private Sub Button1_Click 
Dim M As Integer 
For M = 1 To 3 
Msgbox(M) 

Next □ 


Button.1>»Saa(jij) tt k Click o) 

lnteger^^j^£ y 

M $4 ib,ljiitl2uUll Ji , 1 . 1 * 1 * 11 jruutl jU (r) 
UjbjJlAufl } r 2u l*itl Uj* 3 122UII 4jljj^ui(i) 
i^lM 

_ M_sgbo_x_(M} ja >w <j^ti jj&i ( 1 ) 

For I = 1 to B step C juji j$SJb Uui*« iibVi j*u*i(u) 

'-T' Ji C ^t2uu43,>bjjB (I) 

B jpuil 4*d aift 2u,ljSall iaUll {J &£j (I) a?-^i«2Jbi2U)l IJjj 3 i (r) 

JijUiVi jULiji 3 * Vbcrlfjrfjijjaij C Jia*ji3jb5"<uui (r) 

j$SJb UukUo ijJLUl SuUwVI je, u^i (g) 

Dim Str As Strini 
rN 

ict = 3\ki\^ 

t=Me. Textboxl.Text & Str & Product & Vbcrlf 

r u ji> j(>* (>) 

Str>«b Jbiy ^ulm jc jibvi Ai» jijiii Dim Str As String j$£ii (r) 
(U*?-- 5 *»)Product^ ulmH N ^^luir^iyiujiagjbjflduaju Product = 3 * N (r) 

(ikj- -j^i N jwiui Product ^uLm^r^tiyiujia^jb^ddUMi Product = 3 * N 

Me. Textbox1.Text=Me. Textboxl .Text & Str &Product & Vbcrlf jijili ( 0 ) 



(ifai-jMlTextbOXl ^aJLtl TextAdualpdLt 2bu2S ProdUCt^uutl Str^^aJLh jdHti**i J*aj 


JjJejkw Jl JUiiVI Vbcrlf JjSJI *>!■ i> jijiil(l) 




Mr - Nasser 


c£sJUI| <pjjJ| 


c£a|aci|| c*JUJ| cAtaJI 



















































r.lA iLuLkJI acnyi o*£»ai> 

WSUWr i5 4*3^1 ojliJI 0*t! 

0 
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UdtfLUfrfl AUuiVl jA u?i (^) 


Private Sub But_Repeat_Click 
Dim M As Integer 
For M = 5 To 9 Step 2 

Me .Labell .Text=Me.Label1 .Text & M & Vbcrlf 
Next M 


.(VydijUjUail) 


Msgbox (“ grfiijjJiu#! “) 


1 oil 0 j* 4 j, ijil\ jldkfiVI jti ijSJ I j 4 



But_ Repeat jSsats siji«j«CJjck 6u^ji5iujie^ia,wa^(r) 

(r) 

\ \ \ i ^ 

For Next 2 Uj^L 4Iji j£u\ au^m 
M6.;kabe!1,Text=Me.LabeM Jext.&.M_&Vbcrlf ijii y£ji(o) 

SdH j j JS lajjj 5,7,9 "ij>jii\ mH IJS J>j& jt & hjjJI JaUm jk\ J&ul Jfi ( 1 ) 

Msgbox(M).itUj jjjia Jjjrf yi M i«4Jij&u2l (v) 

J*Si 0) 

ijl AAUlaJ jww julj ulA 


Dim M,Product,NUM As Integer 

Dim Str As String 

For M = 1 To 12 

Str = NUM & “ X “ & M & “ = “ 

Product = NUM * M. 

Next M 


Listboxtl .Items.ClearO 
1=1 

Do While I <= N 
Listboxtl. Items.Add(l) 
1 = 1+2 
Loop 


cfisJLUl a*£j| (|) guiUJI J|fmJ| 

.Do.Whil_e...lopi)..^2MijjJi ji j£ji (i) 

>«Jiyi(i=i+2)jpl^ jijiJl(r) 
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UpULrU Mj3X» 31m*I M \ojliJI 0*1! 


u 


P 9 AI o ^ I| cfisi J 9 OI o>£>a o 
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-**3 




ES © | = 







ylAilfl) 

JXJUoUI 


T ♦ *0-1Y-V 


i_S\jjI c# 

O 

ts^Ji 


0 

6>juuill il>3i ^JuC. 


Jj^tnUJU 




£$j ja uULu Jl£^l / 


jluil>«l 

j^C jru^b 

String 

Textbox 

>9*uVl 

r-o/ir/v 

<^V\ Date^a 

Textbox 

Jiyi^yG 

\ ' -°- 

u*3j 

Textbox 

31 JIjfll :Jl£ 

\ \ \ 

Boolean 5ua»i* 

_♦♦_ 

Radio button 



C3^3^/u)^\St>\j\2s-)$ CXS&yJat oJlIam^ p£ri ^i\XM oJu&2& ^©Lvi\ 
(<&**$ oJlxI CX5?V^ t^t) ouJ\£X)J\ cx*v\,U o/3-o 


• \ • 'IXA • r ^£A J 4 & ^\i j\AMuO diAx^ g« 
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